home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Borland Visual dBASE Professiona v7.0 / DATA1.CAB / Sample_dBASE / Fleet / Fleet.mnu < prev    next >
Text File  |  1997-11-20  |  5KB  |  167 lines
  1. ** END HEADER -- do not remove this line
  2. //
  3. // Generated on 09/22/97
  4. //
  5. parameter formObj
  6. new FleetMENU(formObj, "root")
  7.  
  8. class FleetMENU(formObj, name) of MENUBAR(formObj, name)
  9.    with (this)
  10.       onInitMenu = class::Root_onInitMenu
  11.    endwith
  12.  
  13.  
  14.    this.MENUFILE = new MENU(this)
  15.    with (this.MENUFILE)
  16.       text = "&File"
  17.    endwith
  18.  
  19.  
  20.    this.MENUFILE.MENUOPEN = new MENU(this.MENUFILE)
  21.    with (this.MENUFILE.MENUOPEN)
  22.       text = "&Open"
  23.    endwith
  24.  
  25.  
  26.    this.MENUFILE.MENUOPEN.MENUAIRCRAFT = new MENU(this.MENUFILE.MENUOPEN)
  27.    with (this.MENUFILE.MENUOPEN.MENUAIRCRAFT)
  28.       onClick = class::MENUAIRCRAFT_ONCLICK
  29.       text = "&Aircraft"
  30.    endwith
  31.  
  32.  
  33.    this.MENUFILE.MENUOPEN.MENUTREE = new MENU(this.MENUFILE.MENUOPEN)
  34.    with (this.MENUFILE.MENUOPEN.MENUTREE)
  35.       onClick = class::MENUTREE_ONCLICK
  36.       text = "Fleet &Tree"
  37.    endwith
  38.  
  39.  
  40.    this.MENUFILE.MENUOPEN.MENUSCHEDULE = new MENU(this.MENUFILE.MENUOPEN)
  41.    with (this.MENUFILE.MENUOPEN.MENUSCHEDULE)
  42.       onClick = class::MENUSCHEDULE_ONCLICK
  43.       text = "&Schedule"
  44.    endwith
  45.  
  46.  
  47.    this.MENUFILE.MENUSEP1 = new MENU(this.MENUFILE)
  48.    with (this.MENUFILE.MENUSEP1)
  49.       text = ""
  50.       separator = true
  51.    endwith
  52.  
  53.  
  54.    this.MENUFILE.MENUWIZARD = new MENU(this.MENUFILE)
  55.    with (this.MENUFILE.MENUWIZARD)
  56.       onClick = class::MENUWIZARD_ONCLICK
  57.       text = "&Schedule Generation Wizard..."
  58.    endwith
  59.  
  60.  
  61.    this.MENUFILE.MENUSEP2 = new MENU(this.MENUFILE)
  62.    with (this.MENUFILE.MENUSEP2)
  63.       text = ""
  64.       separator = true
  65.    endwith
  66.  
  67.  
  68.    this.MENUFILE.MENUEXIT = new MENU(this.MENUFILE)
  69.    with (this.MENUFILE.MENUEXIT)
  70.       onClick = class::MENUEXIT_ONCLICK
  71.       text = "E&xit"
  72.    endwith
  73.  
  74.  
  75.    this.MENUREPORTS = new MENU(this)
  76.    with (this.MENUREPORTS)
  77.       text = "&Reports"
  78.    endwith
  79.    
  80.    this.MENUREPORTS.MENUBYFLIGHT = new MENU(this.MENUREPORTS)
  81.    with (this.MENUREPORTS.MENUBYFLIGHT)
  82.       onClick = class::MENUBYFLIGHT_ONCLICK
  83.       text = "Schedule by &Flight"
  84.    endwith
  85.  
  86.    this.MENUREPORTS.MENUBYAIRCRAFT = new MENU(this.MENUREPORTS)
  87.    with (this.MENUREPORTS.MENUBYAIRCRAFT)
  88.       onClick = class::MENUBYAIRCRAFT_ONCLICK
  89.       text = "Schedule by &Aircraft"
  90.    endwith
  91.  
  92.    this.MENUHELP = new MENU(this)
  93.    with (this.MENUHELP)
  94.       text = "&Help"
  95.    endwith
  96.  
  97.  
  98.    this.MENUHELP.MENUABOUT = new MENU(this.MENUHELP)
  99.    with (this.MENUHELP.MENUABOUT)
  100.       onClick = class::MENUABOUT_ONCLICK
  101.       text = "&About Fleet Manager"
  102.    endwith
  103.  
  104.  
  105.    // {Linked Method} form.root.menuhelp.menuabout.onClick
  106.    function MENUABOUT_onClick
  107.       local f
  108.       f = new fAboutForm()
  109.       f.mdi := false
  110.       f.readModal()      
  111.    return ( f.release() )
  112.  
  113.    // {Linked Method} form.root.menufile.menuexit.onClick
  114.    function MENUEXIT_onClick
  115.       local app 
  116.       app = this.parent.parent.parent.app    
  117.    return ( app.close() )
  118.  
  119.    // {Linked Method} form.root.menufile.menuopen.menuaircraft.onClick
  120.    function MENUAIRCRAFT_onClick
  121.       local app
  122.       app = this.parent.parent.parent.parent.app
  123.    return ( app.openAircraftForm() )
  124.  
  125.    // {Linked Method} form.root.menufile.menuopen.menuschedule.onClick
  126.    function MENUSCHEDULE_onClick
  127.       local app
  128.       app = this.parent.parent.parent.parent.app
  129.    return ( app.openScheduleForm() )   
  130.  
  131.    // {Linked Method} form.root.menufile.menuopen.menutree.onClick
  132.    function MENUTREE_onClick
  133.       local app
  134.       app = this.parent.parent.parent.parent.app
  135.    return ( app.openFleetTreeForm() )
  136.  
  137.    // {Linked Method} form.root.menufile.menuwizard.onClick
  138.    function MENUWIZARD_onClick
  139.       local app
  140.       app = this.parent.parent.parent.app
  141.    return ( app.readWizard() )
  142.  
  143.    // {Linked Method} form.root.menureports.menubyflight.onClick
  144.    function MENUBYFLIGHT_onClick
  145.       local app
  146.       app = this.parent.parent.parent.app
  147.    return ( app.viewFlightReport() )
  148.    
  149.    // {Linked Method} form.root.menureports.menubyaircraft.onClick
  150.    function MENUBYAIRCRAFT_onClick
  151.       local app
  152.       app = this.parent.parent.parent.app
  153.    return ( app.viewAircraftReport() )
  154.  
  155.    function ROOT_onInitMenu
  156.       local bApp
  157.       bApp = ( TYPE("this.parent.app") == "O" )
  158.       if ( not bApp )
  159.          this.menuFile.menuOpen.enabled := false
  160.          this.menuFile.menuWizard.enabled := false
  161.          this.menuFile.menuExit.onClick := ;
  162.             { ; this.parent.parent.parent.close() } 
  163.          this.menuHelp.menuAbout.enabled := false
  164.       endif
  165.    return (bApp)
  166. endclass
  167.